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lOMOD <DTAC 

mmiE 

.fIfLE 
I DDXCOM 



P.ISS.DEC/X11 SYSTEM EXERcfsgR Ml 



VEfiSIOM 6 



000000- 

mm- 

000006^ 



00001 
00001 



oooooi 



ooloo* 
9SJQ2: 



000000 

000000 

000000 
000000 
000246' 

mm 



23-MAY-78 



,157 

DDULE 



BEGIN: 

MODNAM: 

XFLAG: 

ADDR: 

VECTOR: 



«ft*U&ftft*ft**ft**ftS 



E*********&ft****ft^«** 



&«««* ft******* 



.ASCII /DTac / 
.BYTE OPEN 
174400+0 
774+0 

.BYTE PRTY4+0 
.BYTE PRTYO+0 
0+1 
OPEN 
OPEN 
,..- OPEN 
SR4i QPEM 

STATI 140000 
START 
MODSP 

4 



BR_. 
DVIDIS 
SR* 
SR 

sr 



B JIU J. 

rI: 



init: 

— OIN 



SPOINT: 

PASCHT: 

ICONT! 

ICOUNTS 

SOFCHT: 

hrdcmt: 
soFPHs: 

HRDPAS: 
SYSCliT: 

RAHmdm: 

mr- 

RES2: 
SVRO: 
s?r1: 

SVR2! 
S¥R3: 
SVR4: 
SYR5: 
SVR6: 
csra: 

SBAOR: 

acsr: 
masadr: 

AS TAT: 
ERRTYP: 

asb: 
AWAS : 
RSTRT: 
HDTO: 

mdfr: 
imtr: 
IDNUM: 













OPEN 

OPEN 

OPEN 

OPEM 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEM 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

157 

.REPT 



i^ODULE NAJ^E. 

;USED TO KEEP TRACK OF WBUFF USAGE 

JIST DEYICE flDDR. 

;1ST DEVICE VECTOR. 

;1ST BR LEVEL. 

;2ND BR LEVEL. 

;DEVICE INDICATOR 1. 

;SWITCH REGISTER 1 

;SaiTCH REGISTER 2 

?SbITCH REGISTER 3 
^^^^.^^iSklTCH REGISTER 4 

;STATUS WORD. 

;MCDULE START ADDR. 

^MODULE STACK POINTER. 

;PASS COUNTER. 

?# OF ITERATIONS PER PASS=4 

;L0C TO COUNT ITERATIONS 

?LOC TO SAVE TOTAL SOFT ERRORS 

;L0C to save total HARD ERRORS 

JLOC TO SAVE SOFT ERRORS PER PASS 

>LOC TO SAVE HARD ERRORS PER PASS 

;# OF SYS ERRORS ACCUMULATED 

;holds random # ^hen rand macro is I 

;RESERVED FOR MONITOR USE 

;RESERVED FOR MONITOR USE 

;RESERVED for MONITOR USE 

;L0C TO SAVE RO, 

;LDC TO SAVE Rl. 

;LOC TO SAVE R2. 

;LOC TO SAVE R3. 

;L0C to SAVE R4. 

;L0C TO SAVE R5. 

;LOC TO SAVE R6. 

;ADDR of CURRENT CSR. 

;addr of good data, or 
;contents of csr. 
;addr OF bad data, op 

;STATUS REG CONTENTS. 
;TYPE OF ERROR 

;expected data. 

FACTUAL DATA. 

;RESTART address AFTER END OF PASS 
;yORDS TO MEMORY PER ITERATION 
;§0RD3 FROM MEMORY PER ITERATION 
'LSL I^iTERRUPTS PEP ITERATION 
;M0DULE IDENTIFICATION NUMBER=157 
;M0DULE STACK STARTS HERE. 
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.HLIST 

-MORD 
.LIST 
.ENDR 
MODSP: 



A******** 



t*Aftft«*a^*ftftftft*ii*ft 



ft******** ***«*« ******* 



003000 
002772 



DTESIZs 
DTEMAX= 
T011BM= 
DS05= 

min 

T010= 

EDO!iES= 

DRESET= 

INTROH= 

ERR11S= 

T010DN= 

RAMISO= 

T010DB= 

HULSTP= 

ERR10S= 

DON10S= 

D0H11S= 

T0ilDB= 
START: 

RESTRTl 

1$: 



000040 

000004 

IT13 

TIO 
:T4!BIT5 

T5 

T7 

T14 

T6 

T5 

Tl 

T15 

T12 

T8 

T5 

T13 

?r 

T6 



T14 



;16 REGISTERS PER DTE20 

;UP TO FOUR DTK'S CAN BE TESTED 

;T0-11 byte MODE 

;DIAGNOSTIC STATUS 

;single pulse the lo/ii clock 

?10/11 interface DIAGNOSTIC mode 

IMV¥-I¥s Uif ""' - "'° ''''''''' 

;PERFURM DIAGNOSTIC CLEAR 
;ENABLE DTE20 TO INTR. THE 11 
;SET TOll ERROR 

;toio done 

iSPJ^'ii'I S.ySr^EBS^ RAM IS ALL ZEROES 

;req 10 interrupt - doorbell from 11 

JNULL STOP 

;SET TO 10 ERROR 

?SET TO 10 DONE 

JSET TO 11 DONE 

INTERFACE MAJOR STATE - TOll XFK 

;STOP ON NULL (ZERO) CHAR 



MOV 

BIC #17 
BNE RESTRT 
END$, BEGIN 



DVID1,TDVD1 
iiiO^TDVDl 



2$t 



GOEXDTl 

1$: 



MOV 
NOV 
MOV 
CCC 
ROR 
BCC 
JSR 
ADD 
SUB 



ENDIT$, BEGIN 



BR 

MOV 
CLR 
MOV 
ADD 
TST 
CMP 
BNE 



TDVDl^TDyD2 

ADDR,R5 

VECTOP^RO 




;GET DEVICE SELECT PARAMETER 

;CLEAR OUT UNUSED BITS 

;BR IF ANY DTE20'S SELECTED 

;SAVE_^THE SELECT BITS 
?GET THE FIRST DTE20 ADDRESS 
;GET THE FIRST VECTOR ADDRESS 
JCLEAR OUT THE "C" BIT 

lRr,Pkki!? IW-'V '' ''^'■"''° 

/GO EXERCISE SELECTED DTE 
;GENERATE NEXT DTE START ADDR. 

^MONITOR SHALL TEST END OF PASS 

;POINT TO FIRST TABLE ENTRY 

;INIT R3 TO COUNT BY +2 

;STgRE A DTE ADDRESS 

?MAKE IT THE RIGHT ADDRESS 

;ADD +2 TO R3 

;STORED ALL DTE ADDRESSES ?? 

;BR IF NOT 
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177466 
177456 



177402 

000106' 177372 
177364 



000000* 000000 
002412 



MOV 
DEC 



ITCNT/ICOUN 
ICOUN 



;ZEROES TEST TO DELAY COUNTER 



CLR 
JSR 
JSR 
MOV 
MOy 
BEQ 
MOV 
MOV 
MOV 
• ****** 



6ater$^begih 



ASB 

pcdiagrt 
pc/diaghe 
#o,|dlycnt 

iOLYCNt^AWAS 

DT02 

R5,CSRa 

DL¥CNT,HASADR 

lASe^rSBADR 



a******^ 



INITIALIZE ITERATION COUNTER 
ICOUNT ONE ITERATION 



JRESULT S/B = 000000 
;G0 do DIAGNOSTIC RESET 
;G0 SET UP DIAGNOSTIC HOD 
;ZERO THE DELAY COUNT REG 
;GET THE DELAY COUNT REG. 
;BR IF DATA CORRECT 
;SAVE THE ERROR INFO 



**************** 



**** ft ****** ft «**ft**^*«*jt***^ 



?TEST TO WRITE ZEROES IN ALL ACTIVE RAM LOCATIONS 



DT02: 



2$: 



002500 3$S 



4$ J 



CLR 
MOV 
JSR 
JSR 
CLR 
CMP 
BNE 
JSR 
JSR 
MOV 
BEQ 
MOV 
MOV 
MOV 

DATERS^B 
•*****&* 

BIT 
BNE 
MOV 
MOV 
CLR 

HRDERS^B 
" ******* 

CMP 

BGT 



ASB 
DLYCNT,R3 



PC^DIAG... 
PC,DIAGME 

R3^DIAG1 

PC,DIAGRT 
PC,DIAGME 
-|R3)^AMAS 

rI^wasadr 
#asb,sbaor 

R5,CSRA 

**8!***S********i 

N 

************* 

JRAMISO^gSTATUS 

RSfcCSRA 
gSTATUS^ASTAT 
ERRTYP 
***&**ft******ji& 

EGIN,NULL 

**** It* ********* 

RB^DLYCHT 



;RESULT S/B = 000000 
;POINT R3 TO FIRST RAH LOG. 
;G0 DO A DIAGNOSTIC RESET 
'§R,J^T l"^ I,N DIAGNOSTIC MODE 
;ZERO A RAM LOCATION 
;DONEpALL ACTIVE LOCATIONS ?? 

;G0 DO A DIAGNOSTIC RESET 
;G0 SET DIAGNOSTIC MODE 
;GET CONTENTS OF RAM 
iBR IF IT MAS 000000 
;SAVE THE ERROR INFO 



************ **a***:ftft<,*^ft*^<^ft^^^ 

JDATA ERROR! if 

&*************** ft* ft ******j4*^^ft^ 

;DID RMF=0 BIT SET 

;BR if it DID 

;SAVE THE ERROR INFO 



***************** ft* A******* 

IW=^ FAILED TO SET 

;CHECKED ALL LOCATIONS ?? 
;BR IF NOT 



***** 

* A*** 



********* 



?TESt TO MRITE ALL I'S INTO DELAY COUNTER 



""i|: llli il« ""'^ ""= 



MOV 
JSR 
JSR 



«-i,Ase 

PC^DIAGRT 
PC/DIAGME 



;RESULT S/B = 177777 

;G0 DO A DIAGNOSTIC RESET 

?G0 SET UP DIAGNOSTIC NODE 
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MOV 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
****** 



6ater$^begin 




;all I's TO 
;get the CO 

;WAS IT ALL 
;BR IF YES 

?SAVE THE E 



DELAY 
NTENTS 
ONES ? 



COUMT P 
OF DELA 



**********ft***-jkjfc* 
DATA ERRORI f ! 



ft******* 



*«**********^ 
?TESf TO MRIfE ALL I'S INTO ACTIVE RAM LOCATIONS 



r*ft ***** 



******* 
*** **** 



Dt04 = 



MOV 
JSR 
JSR 
MOV 
CMP 
BNE 
MOV 
JSR 
JSR 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 



• ******* 



DLYCNT,R3 
PC^DIAGRT 
PC,DIAGME 

l-l^ASB 
PC^DIAGRT 
PC^DIAGME 
-<R3),AWAS 

ASB^A^AS 

rLmasadr 
|asb,sbadr 

SfCSRA 



;R3 points to ist address 
;go do a diagnostic reset 

'PSJ^*^, PI^GNOSTIC MODE 
;L0AD all I'S INTO RAM 
•BR*iPn0T^ LOCATIONS ?? 
JRESULT S/B = 177777 
;Gq DO A DIAGNOSTIC RESET 
;G0 set DIAGNOSTIC MODE 
;READ A RAM LOCATION 
?WAS IT 177777 •?•? 

;br IF yes 

;SAVE THE error INFO 



64TERS, BEGIN 

.*****&***** 

CMP R3,DLYCNT 
BGT 2$ 

?RAM MEMORY ADDRESS TEST 



*****&** 



k******** 



***** ******* 



t*** * **** 



3S; 



1$: 



2$i 



177026 
400 001052" 104404 000000' 



MOV 
CLR 
JSR 
JSR 
MOV 
ADD 
CMP 
BNE 
SUB 
MOV 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 



DLYCNT,R3 

R4 

PC,DIAGRT 

PC,.DIAGME 

R4,(R3)-i- 

#21042, R4 

R3,DIAG1 

P1042^R4 
R4^ASB 
-2(H3)«AWAS 
R4^-(ft5) 

R3,WASADR 

pSB^SBADR 

RS^CSRA 



;CHKCKBD THEM ALL VET ?? 
;BR IF NOT 



/START WITH 1ST RAM LOC 

;GQ SET DIAGNOSTIC MODE 

;L0AD a rah LOCATION-UPDATE POI'JTEP 

?ADD +2 TO EACH DATA BYTE 

;LDADED THEM ALL ?? 

;BR if NOT 

IsAvl S/B^DAtP'*^ CHECKING DATA 

;GET CONTENTS OF RAM 

;C0RRECT CONTENTS ?? 

;BR if YES 

;SAVE THE ERROR DATA 



-OfK, 

• *«*******S.**«***4ii 

DATERS, BEGIN 



;DaTA ERROR! f ! 
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001056' 005704 
001060' C01354 



176754 
176744 

000000 




001732 
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3$: 



fST R4 

BME 2$ 



a*ftas*ftaAa*«,»fta***** 



» » * ft » » * a « a ft ft 

;back to 000000 data 

/RR IF NOT 



^!!!L!!!!Lf!!:LH5^^ ^°^ ^" ^"" floating chf out of ram 



D?06S 

IS: 



2$: 

;test 



JSR 
CLR 
MOV 
MO? 
MOV 
BIT 
BEQ 
MOV 
NOV 
MOV 
CLR 
• tt»ft«ei» 



PC-DIAGRT 

ASR 

JHIT0^H3 

R3,gDLYCNT 

0DL?CNT,AWAS 

iRA^ISO;@STATUS 

AWAS-ACSR 
R5,C$RA 
gSTAtUS^ASTAT 
ERRTYP 



;Gn DU A DIAGNOSTIC RtSE 
JRESULT S/P = 000000 
llfiU UJ2 LOAD DLYCNT 
;L0AD FLOATING ONF INTO 

;read it back out 

;OID RMF = GET SET ?•? 
/BR IF NOT — ITS OK ' 
;CCSPC3 = DATA READ 
;SAVE ERROR INFO 



T 

DLYCNT 






^1 



OC 

BNE 



R3 
IS 



D?07: 



ISfL-IElH-ES"^" CAUSES A VECTORED INTERRUPT 



'SHI.S^S IN ON RIGHT SIDE 

'r^S^ITF. ^SE FLOATING CNE 

;BR TILL IT COMES OUT CN 



«*««»** 
*••** 



igUfSej"""* 



IDOMiOS! 



IRTRON,faSTATUS 



>TES? 

; 



JSR PC4DIAGRT 
CLR LNfFLG 

MOVB 

TS? 

MOV 

NOP 

MOP 

HOP 

TST 

BNE 

HOV 

MOV 

JSR 

MOV 

HRDERS. 

!!-!_!i£«!!LII!!!! E*^ generate vectored interrupt 



INTFLG 

DTIO 

R5,CSRA 



;Gp^DO A DIAGNOSTIC RESET 

;CLEAR SOFThARE FLAG 

;G0 TO DTINT ON INTERRUPT 

;resft vector pointer 
;To allow interrupt 

|RJM"fT'gIg«'^" "^^^^ '^ 
;SAVt THE ERROR 



,ERRT¥P 



BEGIN-NULL 



NFD 
;G0 DO A DIAGNOSTIC RESET 



v:mLmrLmm.mmnAuumu. 



300" 000240 



JSR 
CLR 
MOV 
HOP 
HOP 
NOP 



PC4DIAGRT 

IMTFLG 

ITOllDB! INTROH^aSTATUS 
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457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 



47 

47: 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

504 
505 
506 
5 07 
508 
509 
510 
511 
512 



001302* 005767 
001306- 001015 
OOlJio* 010567 
OOiJH' 012767 
001322' 004767 



001326' 



-- -767 
012767 



001732 

176564 
004040 
001412 
000023 



176552 



001334' 104405 000000' 000000 



m 88 



m- 



)52 
J60' 

hi 

)72 
574 
i6o 
106' 
J12' 



II: 



012777 000240 
000240 

888118 

005767 

"01015 
19167 17650 
12767 00024 
04767 00132 



..,„-- 001646 
001015 

219167 176500 

012767 000240 

004767 001326 

012767 000023 



176476 
176466 

001420- 104405 000000' 000000 



001426- 
001432- 
001436- 
001444- 
001446- 
001450- 
001452- 
001456* 
001460- 
001464- 
001472- 
001476- 



004767 
005067 
012777 
000240 
000240 
000240 
005767 
001015 
010567 
0i2767 
00476-^ 
01276 



30 I 

ft] 



001306 
001602 
020040 001562 



001562 

176414 

020040 176412 

001242 

000023 176402 



001504' 104405 000000' 000000 



001512' 

881ih: 

001526- 
001530- 



005067 
2i2777 
000240 
000240 
000240 



001522 

000042 001502 



HACYll 304(1052) 12-0CT-78 16:33 PAGE 11 



fST 
BNE 
MO? 
MOV 
JSR 



INTFLG 

DTU 

R5,CSRA 



;DID THE INTR 
;BR if YES 
;SAVk THE ERROR 



OCCUR ?? 
INFO 
no DO A DIAGNOSTIC RESET 



ITEST 
} 



fTDllDBIINTRON,ASTAT 
ai»« PC^DIAGRT 

I!!!L!!I5iL£2?!" ^^^ generate a vectored INTERRUPT 



JSR PC,DIAGRT 
CLR IMTFLG 



MOV 
MOP 
NOP 
HOP 
TST 
BHE 
MOV 
MOV 
JSR 



#DONllSf IKTRON/flSTATUS 



INTFLG 

DT12 

R5,CSRA 



;Gn DO DIAGNOSTIC HESFT 
;CLEAR SOFTWARE INTR. FLAG 



;DID INTR. CCCUR '>7 

;RK IF IT DID 

;SAVE THE ERROR INKU 



;G0 DC DIAGNOSTIC 



;test 

; 



MOV ^ 423,ERRTYP 
.ISiLl'ZEP ^^" ^*" CAUSE A VECTORED INTERRUPT 



JSR 
CLR 
MOV 
HOP 
HOP 
NOP 
TST 
BHE 
MOV 
MOV 
JSR 
MOV 
• **»» 

HROER 



PC,DIAGRT 

INtFLG 

lERRlOSI INTR0N,3STATUr> 



INTFLG 

DT13 

R5<.CSRA 

|FfiR10SU»TR0N,*SI« 



;G0 DO A DIAGNOSTIC 
;INIT SOFTWARE FLAG 

;enarle "TniOER" to 
;a little stall 



reset 

CAl'SK 



;DID INTR. OCCUR ?? 

;RR IF IT DID 

;SAVE THE ERROR INFU 






RESET 
»«* * 
If-TR 



*»**«««» 



;test 

;— — 



!!!!L!!!2i^^'''" ^^^ cause a VECTUHES INTERRUPT 



CLR 
MOV 
NOP 
NOP 
HOP 



INTFLG 
#ERHllSIINTROH,(aSTATfJS 



U■^*?TT7PU|fr^f" CAUSE INTR. 
fh LITTLE STALL 



# % 
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001226 
001214 



000020 001202 



INTFLG 
R5,CSRA 



TST 
BNE 

MOV KD^UDKA 

MOV ieRriisiintron^astat 

ADD If'^Roj-i- ^SillSgErlf^L.SATCHER IN DTE 

CLR (r6) 

TST -(r6) 



;did the intr occur ?? 

;br if it did 

;SAVE the error info 

;go do a diagnostic reset 

********************** *A**ft<e^»^ 



;BEF0RE LEAVING 



) 



TO VBRIFV "MSTR CLR" CAN CLEAR "TOll BC" 



JSR 
MOV 
MOV 
JSR 
MOV 
NOP 
NOR 
NOP 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
• «*«« 

DATER 



PC,DIAGRT 

|7777,|T011BC 

PC,DIAGRT 

NPRLOC^eTOllAD 



;G0 DO A DIAGNOSTIC RESET 
;GET NPR ADDRESS 
JLOAD TOll BYTE COUNT 
',^9.80.A DIAGNOSTIC RESET 
;L0AD TO 11 ADDRESS 
;STALL A LITTLE 



DT15 
T011AD£HASADR 

IcIIHS****. . ;DATA ERROR!!! 



;GET the to 11 ADDRESS 
;DID it GET MODIFIED ?? 

;br if not 

;SAVE THE error INFO 



********* 



^0_VERIFY ABC REG INCREMENTS DURING TOll TRANSFER 



MOV 
INC 
JSR 
MOV 
ADD 
JSR 
CLR 



NPRLOC/ASB 

ASB 

PC^DIAGRT 

NPRL0C,R3 

#2/R3 

PC,T11L0C 

ERRTYP 



MOV 
MOV 
MOV 
JSR 
MOV 
JSR 
MOV 



UTlb 

|TpllBM!7777,@T011BC 

NPRL0C,gT01llD 

#10!EDONES,§DIAG2 



#14,gDIAG2 

PC,DIAG9P 

#20/8DIAG2 



;GET THE NPR ADDRESS 
INCREMENT IT 
;G0 DO A DIAGNOSTIC RESET 
;GET NPR ADDRESS AGAIN 
;ADD -I-2 TO IT 

;go lock in TOll major state 
******* ******«*»*****«ft****^<^^t^^^^^^^^^^^^^^^ 

Si*l2*k2SLILl'ISli" "*'JOR state 

***************** **«*J(.**A*^*^^^^^^^ 

;go to next test 

;lgad to 11 byte count reg. 

;L0AD to 11 ADDR. REG. 

;G0 set up diag reg. 
;go pulse the clock 

;CHANGE diag REG. 

;Gg pulse the clock 

;CHANGE THE DIAG REG. 
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002022 







004767 000676 

001162 

176046 



002064- 004767 000650 
002070- 104404 000000' 
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176054 
176046 



JSR 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
JSR 



PC/.DIAG9P 

9TD11AD,AWAS 

ASB^AHAS 

DTlS 

TOllAD/HASADR 

iASB-SBADR 

15,CSRA 



;G0 

;get 

;did 

;br 

;SAV 



PULSE THE CL 
THE TO 11 A 
IT INCREMEN 
IF IT did 
E THE ERROR 



OCK 

DDRESS 

T PROPERL 



pc,diagrt 

•w»s«««***% ******** 

mmuMm 



************!** 



****** 
data 



^do diagnostic 



********* 



/TEST^TO CHECK THE "TOll DONE" FLAG GETS SET 



. oosof? 

004767 

mm 

005067 



R2?§S 176004 DT16: 



990?" 
000632 

mm 

175752 



001070 



104405 000000- 000000 
000504 

005077 
005004 



001042 



: mm 
■ %ivh 

' 010567 
002224- 104405 



002246- 

88pp: 
IWViX- 



105304 
1056^ 



000000- 
000000- 
000100 001022 



1$: 



175666 
001004 
175662 

000000- 000000 



PIJ1004 175664 



00045Q 
005004 

104407 

\%m 

01015 



OOOQOO- 
000000- 
000100 000746 



000734 175614 



175604 
T. 



#T011DN,ASB 
PC-DIAGRT 
fiTOllBC 
PC,DIAGRT 
NPRLgC,gT011AD 
PC,T11L0C 
ERRTYP 
******************* 

S/BEGIN,NULL 
***************** 



5067 175606 



MOV 
JSR 
CLR 
JSR 
MOV 
JSR 
CLR 

• **** 

HRDER: 

• »*** 

BR 

CLR 

CLR 

CLR 

CLR 



SSS*5I#BEGIN 
BREAKS, BEGIN 
BIT #T011,@DIAG1 

SIS R^ 

BNE IS 

MOV R5,CSRA 

MOV gDIAGl^ASTAT 

Cy*^ ERRTYP 

.******* *************jtjk. 

HRDERS,BEGIN,NULL 
•*****%*** **&*** *****^*, 

CLR R4 



BREAKS 

BREAKS 

BIT 

BNE 

DEC 

BNE 

MOV 

MOV 

CLR 



DIAGl 



rBEGIN 
-BEGIN 
#TQ11,@ 

|l 

gilAGl^ASTAT 

RS^CSRA 

ERRTYP 



'ISURN.BIT SHOULD GET SET 
;Gp DO A DIAGNOSTIC RESET 
?CLEAR TO 11 BYTE COUNT PEG. 
;G0 DO A DIAGRT 
;LgAp^THE TO 11 ADDR REG. 
;Ga LOCK IN TO 11 MAJOR STATE 
**ft************»*******^^^^^^^^^^^^^^^^^ 

^;FAILED to LOCK IN TO 11 STATE 
sr4***************4**4V*ii^kJ4A4^^^^^^^^^^^ 

;G0 to NEXT TEST 

<k9^P.'''9»ll BVTS COUNT PEG. 

;INTT BREAK TIMER 

IISK^nSARY RETURN TO MONITOR 

;THEN CONTINUE AT NEXT INSTRUcflCN. 

<8i°rFuy*^'^ "'^ TOll STATE ?? 
/ H K Ir Y ES 
;CgUNT THE TIMER 
;BR if no TIME OUT 
;SAVE THE ERROR INFO 

;«******************^^jtj^^^t^^^^^^^^^^^^^^^ 

****** **ft**********St**^^^^^^^^^^^^^^^^^^ 

'§9,10»NEXT TEST 
JINIT THE TIMER AGAIN 

TEMPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUcflCN. 
;BACK in TOll STATE YET 

;br if yes 

;cguNT the break timer 
;br if no timeout 
;SAVE the error info 



I 



I 



DEC/XH SYSTEM EXERCISER MODOLE 
".Pll 12-0CT-78 11:56 



002300' 104405 000000' 000000 
00942 

10 175570 
00 175562 
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009240 

mm s^°^» 

001012 



002350' 104404 000000' 



MU: IM 81??^^ 

002366' 005067 175514 



175514 
000000' 



mil 



104405 
-., 000446 

: m 

0^446' 017767 

mm- Mi«- 
mm- 

002512' 104404 




000000' 



ill 89iii§' 004767 000216 

i?i oRlili' 8i§2f2 222529 125356 

6. 

67- 

|76 

879 

680 002562* 000441 



i iiP « 

>76 002550' 005067 175332 

>78 002554' 104405 000000' 000000 



4S: 



A^^!!*!********************'** ********************** ************** 
Igp ''^1'' ;go to next test 

BIT iTnfTKS'Mfi 'SSL^HE STATUS REG. 

nil #T011DN,AHAS ;T011 DONE BIT SET ? 

Mni dI^^cd. ?BR if yes 

"2L* * IasbJbadr 

'**jjrRP??«********^r ************************************ 



fii 



;CHECK THAT STST NULL FLOP CAN BE SET 

^— «.__ — «._«_««„«.__ ««^_ — _ — __ 

DT17: 



HO? 
JSR 
CLR 

BR 

MOV 

CLR 

MOV 

MOV 

JSR 

MOV 

JSR 

MOV 

BIC 

CMP 

BEQ 

MOV 

Mr" 

Ml 



PULSTP^ASB 
PC,T11LDK 



;NyLSTP SHOULD GET SET 
;LaCK IN TO 11 STATE 

r,,:.,.T« „,., . *********************************»**- 

liiiS«§ytL**....£OILED^Tg.L0CK 



******** i:-*x**«*ftis**s******|**ii«il 

DT20 
fZSTgP!37777/(aT01ieC 



gTOllDT 

l??'L'SC«ST011AD 

|lO!EDOps,0DIAG2 

PC,DIAG9P 

|l4^gDIAG2 

PC|.DIAG9P 

flSTATUS,AWAS 

DT20 

RS^CSRA 

pWAS.NASADR 

|ASB,SBADR 

********** 



i**** 

fliiiidiSJL** 



TATE 
****** 

;G0 to next TEST 
;SET THE NULL STOP BIT 
;CLEAR TO 11 DATA REG. 
;load the TOU ADDR REG, 
;LOAD DIAG2 REG 
^S9-.PHPE THE CLOCK 
JSET^UP DIAG2 
'SS-Py^SE THE CLOCK 

;get the status reg. 
;clear out junk bits 
;did nulstp set ?? 
;br if yes 
;save the error info 



******** 
******** 



******** 



********, 



********* ***ft**ft***itjnt^^^, 

;DATA ERROR! II 
»*****!*******< 



********** 



t********, 



******* 
******* 



^£-!HLf5Li5EE"^^^*^^°^ during to lo e-buff fill 



PC^DIAGRT 
NPRLDC/ASB 



JSR 
MOV 

ill IL*f?H£g?""» 

CLR ERRTYP 

^,^^!!******************** ******************** ************* 

BR DTEXIT ;EXIT TESTS 



;Gg DO A DIAGNOSTIC RESET 
JSAVE NPR ADDRESS 
/INCREHENT IT 
;LOAp THE TO 10 ADDR REG. 

;go lock in TO lo state 

**************** »if*ft*^* 



■P 
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68 

n 

68. 

w 

688 
689 
690 



MACYll 30A(1052) 12-0CT-78 16:33 PAGE 15 




1$: 



MOV 
JSR 
MOV 
NOP 
MOV 
JSR 
JSR 
MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
• ft*** 

DATER 



TST 
BEQ 
TST 
BEQ 
J MP 
RTS 



#10|-gDIAG2 

PC,DIAG9P 

#ED0NES^@DIAG2 

K14,eDIAG2 
PC,DIAG9P 
PC,DIAG9P 
fTOlOAD^AWAS 
ASB.AUAS 
DTEXIT 
R5,CSRA 
TOlOAD/HASADR 
lASBfSBADR 
*******%*******i»ftjt« 

$#BEGIN 
********** 



;SET^UP TO SHIFT STATES 
;Ga PULSE THE CLOCK 
;SET EDONES PIT 

;SHIFT STATES 

;PULSE THE CLOCK TWICE 

'Sfl l"E TO 10 ADDRESS 
;BR IF YeF I'^t^REMENTED 
;SAVE THE ERROR INFO 



I********** 
(DATA ERROR! !! 



**************************. 



PASCNT 

ICOUN 

DDAGIN 
PC 



***************************^^^^^^^^^^ 



;FIRST TIME THROUGH ? 

;BR if YES-QUICK PASS 

;D0 it AGAIN ?? 

;BR IF NO 

/GO DO IT 

;G0 TO NEXT DTE20 



;COMMOM 

/ 



SUBROUTINES 



000304 DIAGPU: 



000270 DIAG9P: 



000256 DIAGRT: 



000100 000212 



177672 
000000' 



diagme: 



tiilok: 

TllLOC: 

tiilka: 

ISi 



MOV 
NOP 
NOP 
RTS 

MOV 
NOP 
NOP 
RTS 

MOV 
NOP 
NOP 
RTS 

MOV 
NOP 
HOP 
RTS 

JSR 
JSR 
CLR 
BIT 
BNE 
JSR 
BREAKS 



#P0LSE!D1011^§DIAG1 



;PULSE THE CLOCK 



#DS05!PULSE!D1011/@DIAGI 

PC 
#DRESET^@DIAG2 

PC 
IDlOll/gDlAGl 



;DIAGNOSTIC RESET 



PC, DIAGRT 
PC, DIAGME 

PC,DIAGPO 
#BEGIN 



/SET DIAGNOSTIC MODE 



;INIT BREAK TIMER 
;IN Toil STATE YET ?? 
;BR IF YES 
;GD PULSE THE CLOCK 
;TEMPORARY RETURN TO MONITOR.. 



• -% 



SniirS^£(?" ^!f5'^SS,^5i*^?HH *^°°"^E «*CYU 30A(1052) 12-0CT-78 
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000000' 




BREAK$^BEGIN 



000144 TllKB: 



tiolok: 

TIOLOC: 
1$: 



DEC 
BNE 
MOV 
MOV 
RTS 
MOV 
ADO 
HOP 
RTS 

JSR 
JSR 
CLR 



R4 

OIAGl^CSRA 
gDIAGl^ACSR 

#D1011IDS05,@DIAG1 



,THE» ComjjUE^.T NEXT^I»SIRUCTIC«. 

;BR IF NO TIMEOUT 
;SAVF THE ERROR INFO 



|6;(SP 



PC^DIAGRf 
PC^DIAGME 
R4 



000104 
000046 



BRgAKS, BEGIN 
1|, BEGIN 



BREAK 

BIT 

BNE 

JSR 

DEC 

BNE 

MOV 

MOV 

RTS 

MOV 

ADD 

NOP 

RTS 



PC,DIAGPU 
R4 

DIAGl.CSRA 
gOIAGl^ACSR 



|D1011IDS05,eDIAGl 



DTINT: COM 
RTI 



PC 



INTFLG 



;ERR0R RETURN 

;SET STATE HOLD 

?MOVF PC AROUND ERROF CiSLl. 

;now return 

'ss bs.a^dpgnostic reset 
;g0 set diag mode 
;init time out counter 

jpulse the clock 
?count the timer 

;BR IF NO TIMEOUT 
;SAVE THE ERROR INFO 

;ERR0R RETURN 

;L0CK IN TO 10 STATE 

;M0VE PC AROUND ERROR CALL 

;NORMAL RETURN 



;SET SOFTWARE FLAG 



) 



I 

t 



;CONSTANTS,ADDRESS TABLE, AND VARIABLES 

^— — .-.•,__«__.______^_ — ^_^ — ___^ — __ — _____ 

;TH1S table gets loaded with the ADDRESSES OF THE DTE REGISTERS 



dlycnt: 

DEXHD3: 
DEXHD2: 
DEXHDl: 
TENADl: 
TENAD2: 
TOIOBC: 

-oil— 



TOllBC 
TOIOAD 
TOllAD 
TOIODT 
TOilDT 
DIAGl: 
DIAG2: 
STATUS 
DIAG3: 



: 

. 

: 
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793 
794 
795 

??l 

798 

III 
III 

803 
804 
805 
806 



88|liS' 888888 
Mm' 888^88 



003246* 



003244* 
000001 



MACYll 30A(1052) 12-0CT-78 

;variables and flags 



TDVDl: 
TDVD2: 

icoun: 

INTFLG: 
ITCNT: 

nprbuf: 











100 





;C0MSTANTS 
NPRLOC: NPRBUF 
»END 
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;DEVICE SELECT BITS BUFFERS 



;address pointer to npr buffer 



DTE20 



I 
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ACSR 
ADDR 
ADDR22= 
ASB 



ASTAT 
AHAS 



oooooIr 

001000 
000106R 



Q0104R 
OOilOR 



BEGIN OOOOOOR 



,_000 

- o?o i° 
^ 020008 



0000 

oooo__ 

002000 



000004 

10 



000 
OOr 






000.,, 
000400 

ooiooo 

104407 



nn 

0442 

m 

OOlOi 



j6R 
OOR 



003176R 
003174R 
Q02754R 
002710R 
002740R 



DIAGl 003222R 



DIAG2 
OUGB 
DIAG9P 
DLYCNT 

DQAGIN 

DOM10S= 

D0H11S= 



003 
003 
002 
003i72R 




313 
489 

363 

743* 

566* 
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741* 760* 



311* 

542 

693 

441* 

346* 

634 

305 

559 

695 



256 



246 
259 
258 



324* 
607* 

326 



m m 



318 
499 

389 
754 
568* 

569 
299 



441 
479 



ilf. 


iir^ 


347 
571 


350 
574 


iii* 


m 


i^V 


11?! 


498* 


516* 


608* 


622 


il^' 


368* 
658* 


659 




412* 

688* 


415 
fi89 
420 


326 


Ui 


353 


375 


400 


^U 


m 


601 
752 


m 


611 


616 



250 
261 

616 



330* 
623* 



343 
517 

598* 

759 

597* 

654 
302 



351* 
633* 



360 
530 

603 
760 
653* 

656 
312 



373* 
661* 



366 
533 

608 

762* 

655* 

682 
336 



398* 
691* 



385 
553 



618 

7884 

681* 



686 
345* 



416* 
740* 



408 
576 



622 

683* 



687 
346 



440* 
759* 



429 
586 



710* 
685* 



715# 
349 



372 

643* 



445 
617 



392* 

659 



464 
626 



4 83 
637 



459* 
665 



442 

588 



715* 
720* 



478* 
695 



451 
671 



725* 

789S 



461 

72 Off 



illlll 
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DRESET= 

DS05 = 

DTEMAX= 

DTESIZ= 

DTEXIT 

DTINT 

DfOl 

DT02 

DT04 
Df05 
DT06 
DT07 
DTIO 
DTll 
DT12 
DT13 
DT14 
DT15 
DT16 

DT20 

DVIDl 

DlOll = 

EDOHESr 

EMDIT$= 

EHDS = 

ERRTYP 

ERR10S= 

ERR11S= 

EXITS = 

GETP&S= 

GOEXDT 

GHBUFS= 

HRDCNT 

HRDER$= 

HRDPAS 

ICONT 

ICOUH 

ICOONT 

IDNUM 

INIT 

INTFLG 

INTR 

IHTRON= 

ITCNT 

MAP22$= 

MODNAH 

MODSP 

MSGNS 

MSGSS 

MSGS 

NPRBUF 

NPRLOC 






SI6R 

014R 



hUlih 



nm^ 



= folio 

= 10440 



ml 



715 
277 
276 
690 

768# 

311# 



mi 
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287 
699# 



m 






332* 


585# 

in 

418* 


632 

443* 


lU 


498 
516 




282# 






334 


420 


445 


290* 


701 


797# 


438 


452* 


457 


'lU, 


441 


453 


237# 







643# 

743 762 



462* 



481* 



471* 
460 



47 6 
472 



500* 518* 



502 520 



490* 495 
479 491 



508* 
498 



513 

509 



76P* 
516 



804 
534 



000060 

mm 



oooioaR 

PQ0042R 



239# 
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NULL - 000000 239f 334 

POPSP = 
P0PSP2= 

PRTY = 

PRTYp = 

PRTYl - 

PRTY2 = 

PRTY3 = 

PRTy4 - 

PRTY5 = 

PRtY6 = 

|RTY7 = 

PSW = 
PULSE = 
PUSH = 
PUSH2 = 
RAHISO= 
RANDS = 

rannOm 

RESTRT 

RESl 

RES2 

RSTRT 

SBADR 

SOFCNT 

SOFER$= 

SOFPAS 

SPOINT 

SPSIZ = 
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SFQ 0019 
647 



m 



125 

228 



m 



213 
230 



214 
239# 



269# 



! 



264# 
331 



000052R 
003232R 

003204R 



265* 
273* 



269 
796# 
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247# 754 
674* 688 



603 

iil. 

m 

585 
7g7# 

m 

743# 




000114R 
000005R 
040000 
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692 784tf 



618 
541 
587* 

460 
631 



733 

563* 

596* 



570 
650* 



573 

7R3tf 



589* 



396* 



541* 



650 



000000 
003250 



000 
001 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 



RnJi5ffi??^f^?^^S^^gggJgF=DD^C°W'^OTAC0 

- 16/5=3.2 
(13 PAGES) 



ruh-tiSe: 1 2 , 

RUN-TIME RATIO 
CORE USED; 7K 



I 



